home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 March / Ahoy_Magazine_86-03_1986_Double_L.d64 / mq us geog (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  11KB  |  266 lines
  1. 1 rem *** u.s. geography module ***
  2. 2 rem put lists in geographical order
  3. 3 rem (in direct mode, type 'poke 53265,peek(53265)or 64' to make shifted
  4. 4 rem characters show up when typing them in
  5. 10 ff$="u.s.geography"
  6. 11 ff$="@0:q "+left$(ff$,14)+",s,w"
  7. 12 open 2,8,2,ff$
  8. 15 z$=chr$(13)
  9. 17 poke 53265,peek(53265)or 64
  10. 19 rem * how many quizzes?
  11. 20 nq=8:print#2,nq
  12. 30 for i=1 to nq:read tn:print#2,tn
  13. 32 for j=0 to 3:read a:print#2,a:poke 53281+j,a:next:poke 53280,peek(53281)
  14. 34 for j=0 to 3:read fc$(j):print#2,fc$(j):next
  15. 36 read a$,b$:a$=fc$(3)+a$:b$=fc$(0)+b$:print#2,a$z$b$:print"[147]"a$:print b$
  16. 38 read a$,b$:a$=fc$(1)+a$:b$=fc$(1)+b$:print#2,a$z$b$:print a$b$
  17. 40 for j=1 to tn
  18. 42 read a$,b$:c$="":a$=" "+a$:for k=1 to len(b$):a=asc(mid$(b$,k,1))
  19. 44 if a<32 or a>95 then a=160:goto 47
  20. 45 if a>63 then a=a+32:goto 47
  21. 46 a=a+128
  22. 47 c$=c$+chr$(a):next:b$="[160]"+c$+"[146]"
  23. 49 print#2,a$z$b$:print ""fc$(2)a$"[146]"fc$(3)b$:next:next
  24. 50 close 2:print "";:end
  25. 99 rem ** quiz #1
  26. 100 data 19,6,8,5,7,"[144]","[158]","[158]",""
  27. 101 rem * quiz title
  28. 102 data "[160][160][160][160][160][160][211][212][193][212][197][211][160][207][198][160][212][200][197][160][213][174][211][174][197][193][211][212][160][195][207][193][211][212][160][160][160][160][160][146]"
  29. 103 rem * format line
  30. 104 data "  from north atlantic to western gulf  "
  31. 105 rem * column headers
  32. 106 data "[160][211][212][193][212][197][211][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  33. 108 data "[160][212][201][196][193][204][160][211][200][207][210][197][204][201][206][197][160][160]"
  34. 109 rem ** quiz items
  35. 110 data "maine               ","3^478 miles      "
  36. 111 data "new hampshire       ","  131 miles      "
  37. 112 data "massachusetts       ","1^519 miles      "
  38. 113 data "rhode island        ","  384 miles      "
  39. 114 data "connecticut         ","  618 miles      "
  40. 115 data "new york            ","1^850 miles      "
  41. 116 data "new jersey          ","1^792 miles      "
  42. 117 data "pennsylvania        ","   89 miles      "
  43. 118 data "delaware            ","  381 miles      "
  44. 119 data "maryland            ","3^190 miles      "
  45. 120 data "virginia            ","3^315 miles      "
  46. 121 data "north carolina      ","3^375 miles      "
  47. 122 data "south carolina      ","2^876 miles      "
  48. 123 data "georgia             ","2^344 miles      "
  49. 124 data "florida             ","8^426 miles      "
  50. 125 data "alabama             ","  607 miles      "
  51. 126 data "mississippi         ","  359 miles      "
  52. 127 data "louisiana           ","7^721 miles      "
  53. 128 data "texas               ","3^359 miles      "
  54. 199 rem ** quiz #2
  55. 200 data 20,14,7,4,8,"","[144]","[144]",""
  56. 201 rem * quiz title
  57. 202 data "[160][193][160][195][210][207][211][211][173][195][207][213][206][212][210][217][160][212][210][201][208][160][207][206][160][201][206][212][197][210][211][212][193][212][197][160][184][176][160][146]"
  58. 203 rem * format line
  59. 204 data "   the cities near i-80^east to west   "
  60. 205 rem * headers
  61. 206 data "[160][195][201][212][201][197][211][160][166][160][212][207][215][206][211][160][160][160][160][160][160]"
  62. 208 data "[160][211][212][193][212][197][211][160][160][160][160][160][160][160][160][160][160][160]"
  63. 209 rem ** quiz items in correct order
  64. 210 data "hackensack          ","new jersey       "
  65. 211 data "paterson            ","new jersey       "
  66. 212 data "williamsport        ","pennsylvania     "
  67. 213 data "youngstown          ","ohio             "
  68. 214 data "cleveland           ","ohio             "
  69. 215 data "toledo              ","ohio             "
  70. 216 data "south bend          ","indiana          "
  71. 217 data "gary                ","indiana          "
  72. 218 data "joliet              ","illinois         "
  73. 219 data "des moines          ","iowa             "
  74. 220 data "omaha               ","nebraska         "
  75. 221 data "lincoln             ","nebraska         "
  76. 222 data "grand island        ","nebraska         "
  77. 223 data "cheyenne            ","wyoming          "
  78. 224 data "laramie             ","wyoming          "
  79. 225 data "salt lake city      ","utah             "
  80. 226 data "elko                ","nevada           "
  81. 227 data "reno                ","nevada           "
  82. 228 data "sacramento          ","california       "
  83. 229 data "san francisco       ","california       "
  84. 231 rem notice that the ^ character is used for commas within entries.
  85. 232 rem 'the least and the most' changes this to a comma with custom characters
  86. 299 rem ** quiz #3
  87. 300 data 20,2,4,7,1,"","[144]","[144]",""
  88. 301 rem * quiz title
  89. 302 data "[160][160][160][160][160][195][201][212][201][197][211][160][207][198][160][212][200][197][160][205][201][211][211][201][211][211][201][208][208][201][160][210][201][214][197][210][160][160][160][146]"
  90. 303 rem * format line
  91. 304 data " cities you visit on a downstream trip "
  92. 305 rem * headers
  93. 306 data "[160][195][201][212][201][197][211][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  94. 308 data "[160][211][212][193][212][197][211][160][160][160][160][160][160][160][160][160][160][160]"
  95. 309 rem ** quiz items in correct order
  96. 310 data "grand rapids        ","minnesota        "
  97. 311 data "minneapolis         ","minnesota        "
  98. 312 data "st.paul             ","minnesota        "
  99. 313 data "la crosse           ","wisconsin        "
  100. 314 data "dubuque             ","iowa             "
  101. 315 data "moline              ","illinois         "
  102. 316 data "davenport           ","iowa             "
  103. 317 data "quincy              ","illinois         "
  104. 318 data "hannibal            ","missouri         "
  105. 319 data "st.louis            ","missouri         "
  106. 320 data "cape girardeau      ","missouri         "
  107. 321 data "cairo               ","illinois         "
  108. 322 data "hickman             ","kentucky         "
  109. 323 data "memphis             ","tennessee        "
  110. 324 data "helena              ","arkansas         "
  111. 325 data "vicksburg           ","mississippi      "
  112. 326 data "natchez             ","mississippi      "
  113. 327 data "baton rouge         ","louisiana        "
  114. 328 data "new orleans         ","louisiana        "
  115. 329 data "venice              ","louisiana        "
  116. 399 rem ** quiz #4
  117. 400 data 20,3,4,5,6,"","","[144]","[158]"
  118. 401 rem * quiz title
  119. 402 data "[160][160][160][160][160][160][160][160][195][201][212][201][197][211][160][207][198][160][212][200][197][160][199][210][197][193][212][160][204][193][203][197][211][160][160][160][160][160][160][146]"
  120. 403 rem * format line
  121. 404 data "   along the lakes from west to east   "
  122. 405 rem * headers
  123. 406 data "[160][195][201][212][201][197][211][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  124. 408 data "[160][211][212][193][212][197][211][160][160][160][160][160][160][160][160][160][160][160]"
  125. 409 rem ** quiz items in correct order
  126. 410 data "duluth              ","minnesota        "
  127. 411 data "superior            ","wisconsin        "
  128. 412 data "marquette           ","michigan         "
  129. 413 data "sault ste.marie     ","michigan         "
  130. 414 data "green bay           ","wisconsin        "
  131. 415 data "milwaukee           ","wisconsin        "
  132. 416 data "racine              ","wisconsin        "
  133. 417 data "chicago             ","illinois         "
  134. 418 data "gary                ","indiana          "
  135. 419 data "muskegon            ","michigan         "
  136. 420 data "traverse city       ","michigan         "
  137. 421 data "bay city            ","michigan         "
  138. 422 data "port huron          ","michigan         "
  139. 423 data "detroit             ","michigan         "
  140. 424 data "toledo              ","ohio             "
  141. 425 data "cleveland           ","ohio             "
  142. 426 data "erie                ","pennsylvania     "
  143. 427 data "buffalo             ","new york         "
  144. 428 data "niagara falls       ","new york         "
  145. 429 data "rochester           ","new york         "
  146. 499 rem ** quiz #5
  147. 500 data 20,6,14,1,8,"","[144]","",""
  148. 501 rem * quiz title
  149. 502 data "[160][160][211][212][193][212][197][211][160][215][201][212][200][160][212][200][197][160][204][207][206][199][197][211][212][160]ocean[160][195][207][193][211][212][160][160][146]"
  150. 503 rem * format line
  151. 504 data "    ocean coastline, longest first     "
  152. 505 rem * headers
  153. 506 data "[160][211][212][193][212][197][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  154. 508 data "[160][207][195][197][193][206][160][195][207][193][211][212][204][201][206][197][160][160]"
  155. 509 rem ** quiz items in correct order
  156. 510 data "alaska              ","6^640 miles      "
  157. 511 data "florida             ","1^350 miles      "
  158. 512 data "california          ","  840 miles      "
  159. 513 data "hawaii              ","  750 miles      "
  160. 514 data "louisiana           ","  397 miles      "
  161. 515 data "texas               ","  367 miles      "
  162. 516 data "north carolina      ","  301 miles      "
  163. 517 data "oregon              ","  296 miles      "
  164. 518 data "maine               ","  228 miles      "
  165. 519 data "massachusetts       ","  192 miles      "
  166. 520 data "south carolina      ","  187 miles      "
  167. 521 data "washington          ","  157 miles      "
  168. 522 data "new jersey          ","  130 miles      "
  169. 523 data "new york            ","  127 miles      "
  170. 524 data "virginia            ","  112 miles      "
  171. 525 data "georgia             ","  100 miles      "
  172. 526 data "alabama             ","   53 miles      "
  173. 527 data "mississippi         ","   44 miles      "
  174. 528 data "rhode island        ","   40 miles      "
  175. 529 data "maryland            ","   31 miles      "
  176. 599 rem ** quiz #6
  177. 600 data 20,12,11,13,10,"[158]","","","[149]"
  178. 601 rem * quiz title
  179. 602 data "[160][160][160][160][160][160][160][212][200][197][160][205][207][211][212][160][208][207][208][213][204][193][212][197][196][160][211][212][193][212][197][211][160][160][160][160][160][160][160][146]"
  180. 603 rem * format line
  181. 604 data "        highest population first       "
  182. 605 rem * headers
  183. 606 data "[160][211][212][193][212][197][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  184. 608 data "[160][200][207][215][160][205][193][206][217][160][208][197][207][208][204][197][160][160]"
  185. 609 rem ** quiz items in correct order
  186. 610 data "california          ","25^174^000       "
  187. 611 data "new york            ","17^667^000       "
  188. 612 data "texas               ","15^724^000       "
  189. 613 data "pennsylvania        ","11^895^000       "
  190. 614 data "illinois            ","11^486^000       "
  191. 615 data "ohio                ","10^746^000       "
  192. 616 data "florida             ","10^680^000       "
  193. 617 data "michigan            "," 9^069^000       "
  194. 618 data "new jersey          "," 7^468^000       "
  195. 619 data "north carolina      "," 6^082^000       "
  196. 620 data "massachusetts       "," 5^767^000       "
  197. 621 data "georgia             "," 5^732^000       "
  198. 622 data "virginia            "," 5^550^000       "
  199. 623 data "indiana             "," 5^479^000       "
  200. 624 data "missouri            "," 4^970^000       "
  201. 625 data "wisconsin           "," 4^751^000       "
  202. 626 data "tennessee           "," 4^685^000       "
  203. 627 data "louisiana           "," 4^438^000       "
  204. 628 data "maryland            "," 4^304^000       "
  205. 629 data "washington          "," 4^300^000       "
  206. 699 rem ** quiz #7
  207. 700 data 20,3,9,1,5,"[144]","[158]","[149]","[144]"
  208. 701 rem * quiz title
  209. 702 data "[160][160][160][160][212][200][197][160][204][193][210][199][197][211][212][160][211][212][193][212][197][211][160][201][206][160][212][200][197][160][213][206][201][207][206][160][160][160][160][146]"
  210. 703 rem * format line
  211. 704 data "     start with the largest state      "
  212. 705 rem * headers
  213. 706 data "[160][211][212][193][212][197][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  214. 708 data "[160][201][206][204][193][206][196][160][193][210][197][193][160][160][160][160][160][160]"
  215. 709 rem ** quiz items in correct order
  216. 710 data "alaska              ","589^757 sq.miles "
  217. 711 data "texas               ","267^338 sq.miles "
  218. 712 data "california          ","158^693 sq.miles "
  219. 713 data "montana             ","147^138 sq.miles "
  220. 714 data "new mexico          ","121^666 sq.miles "
  221. 715 data "arizona             ","113^909 sq.miles "
  222. 716 data "nevada              ","110^540 sq.miles "
  223. 717 data "colorado            ","104^247 sq.miles "
  224. 718 data "wyoming             "," 97^914 sq.miles "
  225. 719 data "oregon              "," 96^981 sq.miles "
  226. 720 data "utah                "," 84^916 sq.miles "
  227. 721 data "minnesota           "," 84^068 sq.miles "
  228. 722 data "idaho               "," 83^557 sq.miles "
  229. 723 data "kansas              "," 82^264 sq.miles "
  230. 724 data "nebraska            "," 77^227 sq.miles "
  231. 725 data "south dakota        "," 77^047 sq.miles "
  232. 726 data "north dakota        "," 70^665 sq.miles "
  233. 727 data "oklahoma            "," 69^919 sq.miles "
  234. 728 data "missouri            "," 69^686 sq.miles "
  235. 729 data "washington          "," 68^192 sq.miles "
  236. 799 rem ** quiz #8
  237. 800 data 20,5,13,2,10,"","[144]","","[144]"
  238. 801 rem * quiz title
  239. 802 data "[160][213][174][211][174][195][201][212][201][197][211][160][215][201][212][200][160][212][200][197][160][205][207][211][212][160][208][197][207][208][204][197][173][173][177][185][184][178][160][146]"
  240. 803 rem * format line
  241. 804 data " from the largest city to the smallest "
  242. 805 rem * headers
  243. 806 data "[160][195][201][212][217][255][211][212][193][212][197][160][160][160][160][160][160][160][160][160][160]"
  244. 808 data "[160][208][207][208][213][204][193][212][201][207][206][160][160][160][160][160][160][160]"
  245. 809 rem ** quiz items in correct order
  246. 810 data "new york city^ny    ","7^086^096        "
  247. 811 data "los angeles^ca      ","3^022^247        "
  248. 812 data "chicago^il          ","2^997^155        "
  249. 813 data "houston^tx          ","1^725^617        "
  250. 814 data "philadelphia^pa     ","1^665^382        "
  251. 815 data "detroit^mi          ","1^138^717        "
  252. 816 data "dallas^tx           ","  943^848        "
  253. 817 data "san diego^ca        ","  915^956        "
  254. 818 data "phoenix^az          ","  824^230        "
  255. 819 data "san antonio^tx      ","  819^021        "
  256. 820 data "honolulu^hi         ","  781^899        "
  257. 821 data "baltimore^md        ","  774^113        "
  258. 822 data "indianapolis^in     ","  707^655        "
  259. 823 data "san francisco^ca    ","  691^637        "
  260. 824 data "san jose^ca         ","  659^181        "
  261. 825 data "memphis^tn          ","  645^760        "
  262. 826 data "washington^dc       ","  633^425        "
  263. 827 data "milwaukee^wi        ","  631^509        "
  264. 828 data "columbus^oh         ","  570^588        "
  265. 829 data "new orleans^la      ","  564^561        "
  266.